home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / attport / kcl.c < prev    next >
C/C++ Source or Header  |  1986-03-11  |  711b  |  41 lines
  1. #define    KCL_SELF        "/usr2/kcl/attport/saved_kcl"
  2. #define    SYSTEM_DIRECTORY    "/usr2/kcl/attport/"
  3.  
  4. #include <stdio.h>
  5. #include <signal.h>
  6.  
  7. #define    COMSIZ    1024
  8.  
  9. main()
  10. {
  11.     int in[2];
  12.     int out[2];
  13.     char command[COMSIZ];
  14.     char buf[4];
  15.  
  16.     pipe(in);
  17.     pipe(out);
  18.     if (in[1] != 4 || out[0] != 5) {
  19.         fprintf(stderr, "Can't get a pipe.\n");
  20.         exit(1);
  21.     }
  22.     fflush(stdout);
  23.     if (fork() != 0) {
  24.         close(in[0]);
  25.         close(out[1]);
  26.         if (execl(KCL_SELF, KCL_SELF, SYSTEM_DIRECTORY, 0) < 0) {
  27.             fprintf(stderr, "Can't exec KCL.\n");
  28.             exit(1);
  29.         }
  30.     }
  31.     signal(SIGINT, SIG_IGN);
  32.     close(in[1]);
  33.     close(out[0]);
  34.     for (;;) {
  35.         if (read(in[0], command, COMSIZ) <= 0)
  36.             exit(0);
  37.         buf[0] = system(command);
  38.         write(out[1], buf, 1);
  39.     }
  40. }
  41.